home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS03.ADF / ABasiCprogs / casino.bas < prev    next >
BASIC Source File  |  1986-04-02  |  2KB  |  71 lines
  1. 2     pot=100:common pot
  2. 3     rem    m=0:n=0
  3. 5     scnclr:rgb 0,6,9,15
  4. 6     outline 0:pena 2:box(20,20;80,110),1
  5. 10    circle(50,50),20
  6. 15    pena 1:paint(60,60),1
  7. 20    box(30,50;70,100),1
  8. 30    dim door%(722)
  9. 35    sshape(20,20;80,110),door%
  10. 37    scnclr
  11. 38    rgb 0,6,9,15
  12. 40    x=120:y=40:gosub 400
  13. 41    x=60 :y=45 :gosub 400
  14. 42    x=180:y=45 :gosub 400
  15. 43    x=0  :y=60 :gosub 400
  16. 44    x=240:y=60 :gosub 400
  17. 50    circle(150,200),150,.5
  18. 55    pena 8:paint(150,150),0
  19. 60    x=158:y=200:pena 4
  20. 61    area(x,y to 10 ,140 to 50,140 to x,y)
  21. 62    area(to 70,125 to 110,125 to x,y)
  22. 63    area(to 130,121 to 170,121 to x,y)
  23. 64    area(to 190,125 to 230,125 to x,y)
  24. 65    area(to 250,140 to 290,140 to x,y)
  25. 70    paint(30,144),1
  26. 75    pena 2:paint(63,137),1
  27. 76    paint(10,167),1
  28. 77    rem  paint(290,167),1
  29. 78    paint(236,137),1
  30. 80    pena 2:draw(300,60 to 300,195)
  31. 81    paint(290,167),1
  32. 100   '
  33. 102   graphic 1
  34. 104   pena 2:penb 1
  35. 105   x=146
  36. 110   ?at(146,60);"O"
  37. 111   ?at(x,68);"U"
  38. 112   ?at(x,76);"T"
  39. 120   x=87 :y=65
  40. 121   ?at(x,y);"P"
  41. 122   y=y+8:?at(x,y);"O"
  42. 123   y=y+8:?at(x,y);"K"
  43. 124   y=y+8:?at(x,y);"E"
  44. 125   y=y+8:?at(x,y);"R"
  45. 130   x=206:y=65
  46. 131   ?at(x,y);"2"
  47. 132   y=y+8:?at(x,y);"1"
  48. 140   x=255:y=90
  49. 141   ?at(x,y);"OVER"
  50. 142   x=x+12:y=y+8:?at(x,y);"7"
  51. 143   x=x-17:y=y+8:?at(x,y);"under"
  52. 190   rem talking introduction goto 300
  53. 200   ask mouse x%,y%,b%
  54. 210   if b%=4 and x%<50 then ?at(10,10);"THIS DOOR NOT PROGRAMED YET":sleep 1*10^6:?at(10,10);"                           "
  55. 220   if b%=4 and X%>60 and x%<110 then chain "poker",5,all
  56. 230   if b%=4 and x%>130 and x%<170 then ?at(10,10);"QUIT  ":stop:gosub 341
  57. 240   if B%=4 and x%>190 and x%<230 then chain "bj",0,all
  58. 250   if b%=4 and x%>250 then chain "dice",0,all
  59. 290   goto 200
  60. 300   rem
  61. 310   a$=translate$("welcome to bobs cahsienno."):gosub 410
  62. 320   A$=translate$("we are going to advance you 1 hundred $."):gosub 410
  63. 330   a$=translate$("please click the mouse button in the door-way of the game you would like to play."):gosub 410
  64. 340   goto 350
  65. 341   a$=translate$("why do you want to quit when you havent even started?"):gosub 410:return
  66. 350   '
  67. 395   goto 200
  68. 399   end
  69. 400   gshape(x,y),door%:return
  70. 410   x%=narrate (a$):return
  71.